
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '     I F   D S R   a n d / o r   C T S   a r e   h i g h ,   t h e n   y o u   e a r   b e e p   s o u n d s 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 S 1   =   C O M _ P o r t N a m e s 
 
 
 
 C O M   O p e n   4   9 6 0 0 
 
 
 
 L a b e l   L o o p 
 
 	 I f   C O M _ D s r 
 
 	 	 B e e p   4 0 0   2 0 
 
 	 	 W a i t   S e c o n d s   0 . 2 
 
 	 E n d I f 
 
 	 I f   C O M _ C t s 
 
 	 	 B e e p   8 0 0   2 0 
 
 	 	 W a i t   S e c o n d s   0 . 2 
 
 	 E n d I f 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 G o t o   L o o p 
 
 
 
 